home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_29563_doRTCSTR < prev    next >
Text File  |  1994-09-21  |  600b  |  25 lines
  1. global RTMenu,RTIDs, gOrigCardID,gNBSN
  2. if the mouse is down then
  3. put stripem(RTMenu, ";^!</(", ":'.▓\{") into rtm
  4. get popitup(rtm,1,the clickh-100,the clickv,"noSubMenus")
  5. get item 1 of it
  6. else
  7. if RTMenu ¡"" then get 1
  8. else get 0
  9. end if
  10. cbusy
  11. if it>0 then
  12. put the short id of this cd into gOrigCardID
  13. get line it of RTIDs
  14. set the itemdelimiter to "■"
  15. put item 1 of it into theid
  16. put item 2 of it into thestack
  17. set the itemdelimiter to ","
  18. if thestack = gNBSN then
  19. go cd id theid of stack thestack in a new window
  20. else
  21. go cd id theid of stack thestack
  22. end if
  23. put "" into gOrigCardID
  24. moveWindow
  25. end if